(define (square x)
  (exp (double (log x))))
(define (double x) (+ x x))

;; Test
(square 2)

